home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Word Games•
/
WordSmith •••
/
WordSmith.doc
/
WordSmith.doc.rsrc
/
CODE_13_STDIO.txt
< prev
next >
Wrap
Text File
|
1989-09-15
|
24KB
|
435 lines
# near model CODE resource
# jump table entries: 856-861 (6 of them)
export_107:
00000000 4E56 FFAE link A6, -0x0052
00000004 426D FCDA clr.w [A5 - 0x326]
00000008 42AD FCDC clr.l [A5 - 0x324]
0000000C 206E 0012 movea.l A0, [A6 + 0x12]
00000010 0C50 0001 cmpi.w [A0], 0x1
00000014 660C bne +0xE /* 00000022 */
00000016 2B7C 0000 0010 FCDC move.l [A5 - 0x324], 0x10
0000001E 6000 0122 bra +0x124 /* 00000142 */
label00000022:
00000022 4EAD 01D2 jsr [A5 + 0x1D2 /* export_54 */]
00000026 7000 moveq.l D0, 0x00
00000028 302E 000E move.w D0, [A6 + 0xE]
0000002C 0C6E FFFF 0010 cmpi.w [A6 + 0x10], 0xFFFF
00000032 6728 beq +0x2A /* 0000005C */
00000034 0C40 0000 cmpi.w D0, 0x0
00000038 6722 beq +0x24 /* 0000005C */
0000003A 0C40 0001 cmpi.w D0, 0x1
0000003E 6712 beq +0x14 /* 00000052 */
00000040 0C40 0002 cmpi.w D0, 0x2
00000044 6712 beq +0x14 /* 00000058 */
00000046 2B7C 0000 0016 FCDC move.l [A5 - 0x324], 0x16
0000004E 6000 00F2 bra +0xF4 /* 00000142 */
label00000052:
00000052 0040 0300 ori.w D0, 0x300
00000056 6004 bra +0x6 /* 0000005C */
label00000058:
00000058 0040 0100 ori.w D0, 0x100
label0000005C:
0000005C 2F00 move.l -[A7], D0
0000005E 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000062 4EAD 006A jsr [A5 + 0x6A /* export_9 */]
00000066 4EAD 02B2 jsr [A5 + 0x2B2 /* export_82 */]
0000006A 3D40 FFFE move.w [A6 - 0x2], D0
0000006E 4EAD 0062 jsr [A5 + 0x62 /* export_8 */]
00000072 4FEF 0008 lea.l A7, [A7 + 0x8]
00000076 4A6E FFFE tst.w [A6 - 0x2]
0000007A 6B00 00C6 bmi +0xC8 /* 00000142 */
0000007E 426D FCDA clr.w [A5 - 0x326]
00000082 42AD FCDC clr.l [A5 - 0x324]
00000086 206E 0012 movea.l A0, [A6 + 0x12]
0000008A 30BC 0001 move.w [A0], 0x1
0000008E 316E FFFE 0002 move.w [A0 + 0x2], [A6 - 0x2]
00000094 316E 000E 0004 move.w [A0 + 0x4], [A6 + 0xE]
0000009A 316E 000C 0006 move.w [A0 + 0x6], [A6 + 0xC]
000000A0 0C6E 0001 000E cmpi.w [A6 + 0xE], 0x1
000000A6 6608 bne +0xA /* 000000B0 */
000000A8 117C 0001 0008 move.b [A0 + 0x8], 0x1
000000AE 6004 bra +0x6 /* 000000B4 */
label000000B0:
000000B0 4228 0008 clr.b [A0 + 0x8]
label000000B4:
000000B4 117C 0001 0009 move.b [A0 + 0x9], 0x1
000000BA 4228 000A clr.b [A0 + 0xA]
000000BE 4268 000C clr.w [A0 + 0xC]
000000C2 4268 000E clr.w [A0 + 0xE]
000000C6 322E 0010 move.w D1, [A6 + 0x10]
000000CA 7000 moveq.l D0, 0x00
000000CC 0C41 0000 cmpi.w D1, 0x0
000000D0 660A bne +0xC /* 000000DC */
000000D2 4228 000B clr.b [A0 + 0xB]
000000D6 303C 0400 move.w D0, 0x400
000000DA 6026 bra +0x28 /* 00000102 */
label000000DC:
000000DC 0C41 0001 cmpi.w D1, 0x1
000000E0 6614 bne +0x16 /* 000000F6 */
000000E2 117C 00FF 000B move.b [A0 + 0xB], 0xFF
000000E8 302E 000C move.w D0, [A6 + 0xC]
000000EC 0800 0000 btst.b D0, 0x0
000000F0 6702 beq +0x4 /* 000000F4 */
000000F2 5240 addq.w D0, 1
label000000F4:
000000F4 600C bra +0xE /* 00000102 */
label000000F6:
000000F6 2140 0010 move.l [A0 + 0x10], D0
000000FA 117C 0004 000B move.b [A0 + 0xB], 0x4
00000100 600A bra +0xC /* 0000010C */
label00000102:
00000102 A31E syscall NewPtrClear, flags=3
00000104 226E 0012 movea.l A1, [A6 + 0x12]
00000108 2348 0010 move.l [A1 + 0x10], A0
label0000010C:
0000010C 0C6E 0000 0010 cmpi.w [A6 + 0x10], 0x0
00000112 662E bne +0x30 /* 00000142 */
00000114 2D6E 0008 FFC0 move.l [A6 - 0x40], [A6 + 0x8]
0000011A 426E FFC4 clr.w [A6 - 0x3C]
0000011E 422E FFC8 clr.b [A6 - 0x38]
00000122 426E FFCA clr.w [A6 - 0x36]
00000126 41EE FFAE lea.l A0, [A6 - 0x52]
0000012A A00C syscall GetFileInfo/PBHGetFInfo/HGetFileInfo
0000012C 4A40 tst.w D0
0000012E 6612 bne +0x14 /* 00000142 */
00000130 2D7C 5445 5854 FFCE move.l [A6 - 0x32], 0x54455854 /* 'TEXT' */
00000138 2D7C 4D50 5320 FFD2 move.l [A6 - 0x2E], 0x4D505320 /* 'MPS ' */
00000140 A00D syscall SetFileInfo/PBHSetFInfo/HSetFileInfo
label00000142:
00000142 4E5E unlink A6
00000144 205F movea.l A0, [A7]+
00000146 4FEF 000E lea.l A7, [A7 + 0xE]
0000014A 4ED0 jmp [A0]
export_108:
0000014C 4E56 0000 link A6, 0
00000150 426D FCDA clr.w [A5 - 0x326]
00000154 42AD FCDC clr.l [A5 - 0x324]
00000158 206E 0008 movea.l A0, [A6 + 0x8]
0000015C 0C50 0001 cmpi.w [A0], 0x1
00000160 670A beq +0xC /* 0000016C */
00000162 2B7C 0000 0009 FCDC move.l [A5 - 0x324], 0x9 /* '\t' */
0000016A 603A bra +0x3C /* 000001A6 */
label0000016C:
0000016C 42A7 clr.l -[A7]
0000016E 2F3C 0000 6606 move.l -[A7], 0x6606
00000174 7000 moveq.l D0, 0x00
00000176 3028 0002 move.w D0, [A0 + 0x2]
0000017A 2F00 move.l -[A7], D0
0000017C 4EAD 02CA jsr [A5 + 0x2CA /* export_85 */]
00000180 4FEF 000C lea.l A7, [A7 + 0xC]
00000184 206E 0008 movea.l A0, [A6 + 0x8]
00000188 317C 0001 0004 move.w [A0 + 0x4], 0x1
0000018E 117C 0001 0008 move.b [A0 + 0x8], 0x1
00000194 117C 0001 0009 move.b [A0 + 0x9], 0x1
0000019A 4228 000A clr.b [A0 + 0xA]
0000019E 4268 000C clr.w [A0 + 0xC]
000001A2 4268 000E clr.w [A0 + 0xE]
label000001A6:
000001A6 4E5E unlink A6
000001A8 205F movea.l A0, [A7]+
000001AA 588F addq.l A7, 4
000001AC 4ED0 jmp [A0]
export_109:
000001AE 4E56 0000 link A6, 0
000001B2 426D FCDA clr.w [A5 - 0x326]
000001B6 42AD FCDC clr.l [A5 - 0x324]
000001BA 206E 0008 movea.l A0, [A6 + 0x8]
000001BE 0C50 0001 cmpi.w [A0], 0x1
000001C2 670A beq +0xC /* 000001CE */
000001C4 2B7C 0000 0009 FCDC move.l [A5 - 0x324], 0x9 /* '\t' */
000001CC 6028 bra +0x2A /* 000001F6 */
label000001CE:
000001CE 2F08 move.l -[A7], A0
000001D0 4EBA 0110 jsr [PC + 0x110 /* 000002E2 */]
000001D4 206E 0008 movea.l A0, [A6 + 0x8]
000001D8 7000 moveq.l D0, 0x00
000001DA 3028 0002 move.w D0, [A0 + 0x2]
000001DE 2F00 move.l -[A7], D0
000001E0 4EAD 02BA jsr [A5 + 0x2BA /* export_83 */]
000001E4 588F addq.l A7, 4
000001E6 206E 0008 movea.l A0, [A6 + 0x8]
000001EA 4250 clr.w [A0]
000001EC 2028 0010 move.l D0, [A0 + 0x10]
000001F0 6704 beq +0x6 /* 000001F6 */
000001F2 2040 movea.l A0, D0
000001F4 A01F syscall DisposPtr/DisposePtr
label000001F6:
000001F6 4E5E unlink A6
000001F8 205F movea.l A0, [A7]+
000001FA 588F addq.l A7, 4
000001FC 4ED0 jmp [A0]
fn000001FE:
000001FE 4E56 0000 link A6, 0
00000202 206E 000A movea.l A0, [A6 + 0xA]
00000206 2028 0010 move.l D0, [A0 + 0x10]
0000020A 6776 beq +0x78 /* 00000282 */
0000020C 2D40 000E move.l [A6 + 0xE], D0
00000210 3028 000E move.w D0, [A0 + 0xE]
00000214 322E 0008 move.w D1, [A6 + 0x8]
00000218 6A38 bpl +0x3A /* 00000252 */
0000021A 4A40 tst.w D0
0000021C 6B00 00BC bmi +0xBE /* 000002DA */
00000220 9068 000C sub.w D0, [A0 + 0xC]
00000224 671A beq +0x1C /* 00000240 */
00000226 2F3C 0000 0001 move.l -[A7], 0x1
0000022C 7200 moveq.l D1, 0x00
0000022E 3200 move.w D1, D0
00000230 2F01 move.l -[A7], D1
00000232 3228 0002 move.w D1, [A0 + 0x2]
00000236 2F01 move.l -[A7], D1
00000238 4EAD 02E2 jsr [A5 + 0x2E2 /* export_88 */]
0000023C 4FEF 000C lea.l A7, [A7 + 0xC]
label00000240:
00000240 206E 000A movea.l A0, [A6 + 0xA]
00000244 4268 000C clr.w [A0 + 0xC]
00000248 317C FFFF 000E move.w [A0 + 0xE], 0xFFFF
0000024E 6000 008A bra +0x8C /* 000002DA */
label00000252:
00000252 4A40 tst.w D0
00000254 6A12 bpl +0x14 /* 00000268 */
00000256 2F08 move.l -[A7], A0
00000258 4EBA 0088 jsr [PC + 0x88 /* 000002E2 */]
0000025C 206E 000A movea.l A0, [A6 + 0xA]
00000260 4268 000C clr.w [A0 + 0xC]
00000264 4268 000E clr.w [A0 + 0xE]
label00000268:
00000268 0C68 0000 0002 cmpi.w [A0 + 0x2], 0x0
0000026E 666A bne +0x6C /* 000002DA */
00000270 486D FECA pea.l [A5 - 0x136]
00000274 4EBA 006C jsr [PC + 0x6C /* 000002E2 */]
00000278 41ED FECA lea.l A0, [A5 - 0x136]
0000027C 4268 000C clr.w [A0 + 0xC]
00000280 6058 bra +0x5A /* 000002DA */
label00000282:
00000282 1028 000B move.b D0, [A0 + 0xB]
00000286 0C00 0000 cmpi.b D0, 0x0
0000028A 6708 beq +0xA /* 00000294 */
0000028C 203C 0000 0100 move.l D0, 0x100
00000292 6006 bra +0x8 /* 0000029A */
label00000294:
00000294 203C 0000 0400 move.l D0, 0x400
label0000029A:
0000029A 2248 movea.l A1, A0
0000029C A11E syscall NewPtr, flags=1
0000029E 3B40 FCDA move.w [A5 - 0x326], D0
000002A2 2D48 000E move.l [A6 + 0xE], A0
000002A6 2348 0010 move.l [A1 + 0x10], A0
000002AA 336E 0008 000E move.w [A1 + 0xE], [A6 + 0x8]
000002B0 4A6D FEF2 tst.w [A5 - 0x10E]
000002B4 6624 bne +0x26 /* 000002DA */
000002B6 0C69 0002 0002 cmpi.w [A1 + 0x2], 0x2
000002BC 6708 beq +0xA /* 000002C6 */
000002BE 0C69 0001 0002 cmpi.w [A1 + 0x2], 0x1
000002C4 6614 bne +0x16 /* 000002DA */
label000002C6:
000002C6 2F08 move.l -[A7], A0
000002C8 487A 004E pea.l [PC + 0x4E /* 00000318, value 0x41EDFECA */]
000002CC 4EAD 002A jsr [A5 + 0x2A /* export_1 */]
000002D0 588F addq.l A7, 4
000002D2 3B7C 0001 FEF2 move.w [A5 - 0x10E], 0x1
000002D8 205F movea.l A0, [A7]+
label000002DA:
000002DA 4E5E unlink A6
000002DC 205F movea.l A0, [A7]+
000002DE 5C8F addq.l A7, 6
000002E0 4ED0 jmp [A0]
fn000002E2:
000002E2 4E56 0000 link A6, 0
000002E6 206E 0008 movea.l A0, [A6 + 0x8]
000002EA 4A68 000E tst.w [A0 + 0xE]
000002EE 6A20 bpl +0x22 /* 00000310 */
000002F0 4A68 000C tst.w [A0 + 0xC]
000002F4 671A beq +0x1C /* 00000310 */
000002F6 7000 moveq.l D0, 0x00
000002F8 3028 000C move.w D0, [A0 + 0xC]
000002FC 2F00 move.l -[A7], D0
000002FE 2F28 0010 move.l -[A7], [A0 + 0x10]
00000302 3028 0002 move.w D0, [A0 + 0x2]
00000306 2F00 move.l -[A7], D0
00000308 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
0000030C 4FEF 000C lea.l A7, [A7 + 0xC]
label00000310:
00000310 4E5E unlink A6
00000312 205F movea.l A0, [A7]+
00000314 588F addq.l A7, 4
00000316 4ED0 jmp [A0]
00000318 41ED FECA lea.l A0, [A5 - 0x136]
0000031C 2028 0010 move.l D0, [A0 + 0x10]
00000320 6706 beq +0x8 /* 00000328 */
00000322 2F08 move.l -[A7], A0
00000324 4EBA FFBC jsr [PC - 0x44 /* 000002E2 */]
label00000328:
00000328 41ED FEDE lea.l A0, [A5 - 0x122]
0000032C 2028 0010 move.l D0, [A0 + 0x10]
00000330 6706 beq +0x8 /* 00000338 */
00000332 2F08 move.l -[A7], A0
00000334 4EBA FFAC jsr [PC - 0x54 /* 000002E2 */]
label00000338:
00000338 7000 moveq.l D0, 0x00
0000033A 4E75 rts
export_110:
0000033C 4E56 0000 link A6, 0
00000340 1B7C 0001 FEF4 move.b [A5 - 0x10C], 0x1
00000346 1B7C 000D FEF5 move.b [A5 - 0x10B], 0xD /* '\r' */
0000034C 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000350 6100 00CE bsr +0xD0 /* 00000420 */
00000354 206E 0008 movea.l A0, [A6 + 0x8]
00000358 0C50 0001 cmpi.w [A0], 0x1
0000035C 670E beq +0x10 /* 0000036C */
0000035E 0C28 0040 000B cmpi.b [A0 + 0xB], 0x40 /* '@' */
00000364 6606 bne +0x8 /* 0000036C */
00000366 2F08 move.l -[A7], A0
00000368 4EBA FF78 jsr [PC - 0x88 /* 000002E2 */]
label0000036C:
0000036C 4E5E unlink A6
0000036E 205F movea.l A0, [A7]+
00000370 588F addq.l A7, 4
00000372 4ED0 jmp [A0]
export_111:
00000374 205F movea.l A0, [A7]+
00000376 301F move.w D0, [A7]+
00000378 321F move.w D1, [A7]+
0000037A 48C1 ext.l D1
0000037C 2F01 move.l -[A7], D1
0000037E 3F00 move.w -[A7], D0
00000380 2F08 move.l -[A7], A0
00000382 4EFA 0002 jmp [PC + 0x2 /* 00000386 */]
label00000386:
00000386 4E56 0000 link A6, 0
0000038A 41ED FEF4 lea.l A0, [A5 - 0x10C]
0000038E 202E 000A move.l D0, [A6 + 0xA]
00000392 4267 clr.w -[A7]
00000394 A9EE syscall Pack7/DecStr68K
00000396 302E 0008 move.w D0, [A6 + 0x8]
0000039A 6100 0044 bsr +0x46 /* 000003E0 */
0000039E 2F2E 000E move.l -[A7], [A6 + 0xE]
000003A2 6100 007C bsr +0x7E /* 00000420 */
000003A6 4E5E unlink A6
000003A8 205F movea.l A0, [A7]+
000003AA 4FEF 000A lea.l A7, [A7 + 0xA]
000003AE 4ED0 jmp [A0]
export_112:
000003B0 4E56 0000 link A6, 0
000003B4 41ED FEF4 lea.l A0, [A5 - 0x10C]
000003B8 226E 000A movea.l A1, [A6 + 0xA]
000003BC 4240 clr.w D0
000003BE 1011 move.b D0, [A1]
label000003C0:
000003C0 10D9 move.b [A0]+, [A1]+
000003C2 51C8 FFFC dbf D0, -0x6 /* 000003C0 */
000003C6 302E 0008 move.w D0, [A6 + 0x8]
000003CA 6100 0014 bsr +0x16 /* 000003E0 */
000003CE 2F2E 000E move.l -[A7], [A6 + 0xE]
000003D2 6100 004C bsr +0x4E /* 00000420 */
000003D6 4E5E unlink A6
000003D8 205F movea.l A0, [A7]+
000003DA 4FEF 000A lea.l A7, [A7 + 0xA]
000003DE 4ED0 jmp [A0]
fn000003E0:
000003E0 4A40 tst.w D0
000003E2 6F3A ble +0x3C /* 0000041E */
000003E4 0C40 00FF cmpi.w D0, 0xFF
000003E8 6F04 ble +0x6 /* 000003EE */
000003EA 303C 00FF move.w D0, 0xFF
label000003EE:
000003EE 4241 clr.w D1
000003F0 122D FEF4 move.b D1, [A5 - 0x10C]
000003F4 9041 sub.w D0, D1
000003F6 6F26 ble +0x28 /* 0000041E */
000003F8 3401 move.w D2, D1
000003FA 41ED FEF5 lea.l A0, [A5 - 0x10B]
000003FE D0C1 add.w A0, D1
00000400 2248 movea.l A1, A0
00000402 D0C0 add.w A0, D0
00000404 6002 bra +0x4 /* 00000408 */
label00000406:
00000406 1121 move.b -[A0], -[A1]
label00000408:
00000408 51C9 FFFC dbf D1, -0x6 /* 00000406 */
0000040C 3200 move.w D1, D0
0000040E 6004 bra +0x6 /* 00000414 */
label00000410:
00000410 113C 0020 move.b -[A0], 0x20 /* ' ' */
label00000414:
00000414 51C9 FFFA dbf D1, -0x8 /* 00000410 */
00000418 D440 add.w D2, D0
0000041A 1B42 FEF4 move.b [A5 - 0x10C], D2
label0000041E:
0000041E 4E75 rts
fn00000420:
00000420 4E56 FFFC link A6, -0x0004
00000424 426D FCDA clr.w [A5 - 0x326]
00000428 42AD FCDC clr.l [A5 - 0x324]
0000042C 206E 0008 movea.l A0, [A6 + 0x8]
00000430 0C50 0001 cmpi.w [A0], 0x1
00000434 670C beq +0xE /* 00000442 */
00000436 2B7C 0000 0009 FCDC move.l [A5 - 0x324], 0x9 /* '\t' */
0000043E 6000 009C bra +0x9E /* 000004DC */
label00000442:
00000442 1028 000B move.b D0, [A0 + 0xB]
00000446 0C00 0004 cmpi.b D0, 0x4
0000044A 661C bne +0x1E /* 00000468 */
0000044C 7000 moveq.l D0, 0x00
0000044E 102D FEF4 move.b D0, [A5 - 0x10C]
00000452 2F00 move.l -[A7], D0
00000454 486D FEF5 pea.l [A5 - 0x10B]
00000458 3028 0002 move.w D0, [A0 + 0x2]
0000045C 2F00 move.l -[A7], D0
0000045E 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000462 4FEF 000C lea.l A7, [A7 + 0xC]
00000466 6074 bra +0x76 /* 000004DC */
label00000468:
00000468 594F subq.w A7, 4
0000046A 2F08 move.l -[A7], A0
0000046C 3F3C FFFF move.w -[A7], 0xFFFF
00000470 4EBA FD8C jsr [PC - 0x274 /* 000001FE */]
00000474 205F movea.l A0, [A7]+
00000476 2D48 FFFC move.l [A6 - 0x4], A0
0000047A 226E 0008 movea.l A1, [A6 + 0x8]
0000047E 1029 000B move.b D0, [A1 + 0xB]
00000482 0C00 0000 cmpi.b D0, 0x0
00000486 6706 beq +0x8 /* 0000048E */
00000488 303C 0100 move.w D0, 0x100
0000048C 6004 bra +0x6 /* 00000492 */
label0000048E:
0000048E 303C 0400 move.w D0, 0x400
label00000492:
00000492 3229 000C move.w D1, [A1 + 0xC]
00000496 43ED FEF4 lea.l A1, [A5 - 0x10C]
0000049A 4242 clr.w D2
0000049C 1419 move.b D2, [A1]+
label0000049E:
0000049E D0C1 add.w A0, D1
000004A0 3600 move.w D3, D0
000004A2 9641 sub.w D3, D1
000004A4 B642 cmp.w D3, D2
000004A6 6C04 bge +0x6 /* 000004AC */
000004A8 3803 move.w D4, D3
000004AA 6002 bra +0x4 /* 000004AE */
label000004AC:
000004AC 3802 move.w D4, D2
label000004AE:
000004AE 9444 sub.w D2, D4
000004B0 D244 add.w D1, D4
000004B2 6002 bra +0x4 /* 000004B6 */
label000004B4:
000004B4 10D9 move.b [A0]+, [A1]+
label000004B6:
000004B6 51CC FFFC dbf D4, -0x6 /* 000004B4 */
000004BA 206E 0008 movea.l A0, [A6 + 0x8]
000004BE 3141 000C move.w [A0 + 0xC], D1
000004C2 B240 cmp.w D1, D0
000004C4 6616 bne +0x18 /* 000004DC */
000004C6 48E7 A040 movem.l -[A7], D0,D2,A1
000004CA 2F08 move.l -[A7], A0
000004CC 4EBA FE14 jsr [PC - 0x1EC /* 000002E2 */]
000004D0 4CDF 0205 movem.l D0,D2,A1, [A7]+
000004D4 4241 clr.w D1
000004D6 206E FFFC movea.l A0, [A6 - 0x4]
000004DA 60C2 bra -0x3C /* 0000049E */
label000004DC:
000004DC 4E5E unlink A6
000004DE 205F movea.l A0, [A7]+
000004E0 588F addq.l A7, 4
000004E2 4ED0 jmp [A0]